home *** CD-ROM | disk | FTP | other *** search
/ The Amiga Classic Collection / The Amiga Classic Collection - Disc 2.iso / Misc / M99-PScalc.DMS / M99-PScalc.adf / PSCalc / Install / PSCalc-Install < prev   
Text File  |  1997-07-01  |  12KB  |  546 lines
  1. ;============================================================================;
  2. ;                    PSCalc Installscript by N. DARNIS                       ;
  3. ;                  $VER: PSCalc-Install 1.45 (30.06.1997)                    ;
  4. ;============================================================================;
  5.  
  6. (set #pscalc-default-dest "SYS:Tools/Commodities")
  7. (set #key-dest1 "keyfiles:")
  8. (set #key-dest2 "s:")
  9.  
  10. (set #html-default-dest "html:PSCalc/")
  11. (set #pscalc-src "/PSCalc")
  12. (set #doc-icon4-src "/icones/PSCalc.guide4.info")
  13. (set #doc-icon8-src "/icones/PSCalc.guide8.info")
  14.  
  15. (set #key-src "/PSCalc.key_file")
  16. (set #key-src-icon "/icones/PSCalc.key_file.info")
  17.  
  18. (set #cat-locale "LOCALE:catalogs/")
  19.  
  20. (set #en "English")
  21. (set #doc-en-src "/help/english/PSCalc.guide")
  22. (set #doc-en-dest "HELP:english")
  23. (set #doc-en-html "/help/english/")
  24. (set #img-en-src "/help/english/")
  25. (set #cat-temp "/pscalc.cd")
  26.  
  27. (set #fr "Français")
  28. (set #doc-fr-src "/help/français/PSCalc.guide")
  29. (set #doc-fr-dest "HELP:français")
  30. (set #doc-fr-html "/help/français/")
  31. (set #cat-fr-src "/catalogs/français/pscalc.catalog")
  32. (set #cat-fr-dest "LOCALE:catalogs/français")
  33. (set #img-fr-src "/help/français/")
  34. (set #cat-fr-temp "/pscalc_francais.ct")
  35.  
  36. (set #sw "Svenska")
  37. (set #doc-sw-src "/help/svenska/PSCalc.guide")
  38. (set #doc-sw-dest "HELP:svenska")
  39. (set #doc-sw-html "/help/svenska/")
  40. (set #cat-sw-src "/catalogs/svenska/pscalc.catalog")
  41. (set #cat-sw-dest "LOCALE:catalogs/svenska")
  42. (set #img-sw-src "/help/svenska/")
  43. (set #cat-sw-temp "/pscalc_svenska.ct")
  44.  
  45. (if (= @language "français")
  46.   (set #lg-default 1)
  47. )
  48.  
  49. (if (= @language "english")
  50.   (set #lg-default 0)
  51. )
  52.  
  53. (if (= @language "svenska")
  54.   (set #lg-default 2)
  55. )
  56.  
  57. (if (= @language "français")
  58.  
  59. ;================================ FRANCAIS ==================================;
  60.  
  61. (
  62. (set #lg "Dans quel langage souhaitez-vous installer PSCalc?")
  63. (set #lg-help "Vous pouvez choisir un des langages de la liste proposée.")
  64.  
  65. (set #pscalc-icon4-src "/icones/PSCalc_f4.info")
  66. (set #pscalc-icon8-src "/icones/PSCalc_f8.info")
  67.  
  68. (set #welcome
  69.         (cat
  70.                 "\nBienvenue à l'installation de PSCalc V1.45.\n\n"
  71.                 "Ecrit par N. DARNIS,\ndistribué par QUARTZ Informatique.\n"
  72.         )
  73. )
  74.  
  75. (set #pscalc-dir "Dans quel répertoire voulez-vous installer PSCalc?")
  76. (set #pscalc-dir-help
  77.         (cat
  78.                 "Il s'agit du répertoire de destination de PSCalc.\n"
  79.     "Normalement PSCalc devrait être dans SYS:WBStartup ou dans SYS:Tools/Commodities"
  80.         )
  81. )
  82.  
  83. (set #doc-type "Quel(s) type(s) de documentation désirez-vous installer?")
  84. (set #doc-type-help
  85.   (cat
  86.         "Vous pouvez choisir le format AmigaGuide et/ou le format html.\n"
  87.         "Vous devriez au moins installer le format AmigaGuide car il est nécessaire pour l'aide en ligne."
  88.   )
  89. )
  90.  
  91. (set #doc-ag-dir "Dans quel répertoire voulez-vous copier la documentation AmigaGuide?")
  92. (set #doc-ag-dir-help
  93.   (cat
  94.     "Il s'agit du répertoire de destination de la documentation au format AmigaGuide.\n"
  95.     "Normalement la documentation doit se trouver dans HELP:<votre langue>\n"
  96.     "Assurez-vous d'avoir AmigaGuide® ou MultiView® pour lire la documentation AmigaGuide."
  97.   )
  98. )
  99.  
  100. (set #doc-ht-dir "Dans quel répertoire voulez-vous copier la documentation HTML?")
  101. (set #doc-ht-dir-help
  102.   (cat
  103.     "Il s'agit du répertoire de destination de la documentation au format HTML.\n"
  104.     "Vous pouvez placer les fichiers html où bon vous semble.\n"
  105.     "Assurez-vous d'avoir Voyager ou IBrowse pour lire la documentation HTML."
  106.   )
  107. )
  108.  
  109. (set #key-dir "Dans quel répertoire voulez-vous copier le fichier clé?")
  110. (set #key-dir-help
  111.     (cat
  112.        "Il s'agit du répertoire de destination du fichier clé.\n"
  113.        "Vous pouvez choisir entre s: et keyfiles:"
  114.     )
  115. )
  116.  
  117. (set #icon-select "Choisissez le type d'icone que vous désirez:")
  118. (set #icon-select-help
  119.         (cat
  120.     "Vous pouvez choisir les icones Magic Workbench (8 couleurs)\n"
  121.     "ou les icones standards en 4 couleurs."
  122.         )
  123. )
  124.  
  125. (set #icons-normal "Normal (4 couleurs)")
  126. (set #icons-mwb "Magic Workbench (8 couleurs)")
  127.  
  128. (set #bad-kick "Vous devez posséder le Kickstart 3.0 ou supérieur pour installer PSCalc.")
  129. (set #install-exit "Merci d'utiliser PSCalc...")
  130. )
  131.  
  132. ;================================= ENGLISH ==================================;
  133.  
  134. (
  135. (set #lg "Which language do you prefer for use within PSCalc?")
  136. (set #lg-help "You can choose one of the language in the list.")
  137.  
  138. (set #pscalc-icon4-src "/icones/PSCalc_e4.info")
  139. (set #pscalc-icon8-src "/icones/PSCalc_e8.info")
  140.  
  141. (set #welcome
  142.         (cat
  143.                 "\nWelcome to the install utility of PSCalc V1.45.\n\n"
  144.                 "Written by N. DARNIS, distributed by QUARTZ Informatique.\n"
  145.         )
  146. )
  147.  
  148. (set #pscalc-dir "In which drawer do you want to install PSCalc?")
  149. (set #pscalc-dir-help
  150.         (cat
  151.                 "It's the destination drawer of PSCalc.\n"
  152.             "Usually, PSCalc should goes to SYS:WBStartup or to SYS:Tools/Commodities."
  153.         )
  154. )
  155.  
  156. (set #doc-type "Which type(s) of documentation do you want to install?")
  157. (set #doc-type-help
  158.   (cat
  159.     "You can choose AmigaGuide format and/or html format.\n"
  160.     "You should always install the AmigaGuide format because it's needed by online help."
  161.   )
  162. )
  163.  
  164. (set #doc-ag-dir "In which drawer do you want to install the AmigaGuide documentation?")
  165. (set #doc-ag-dir-help
  166.   (cat
  167.     "It's the destination drawer of the AmigaGuide documentation.\n"
  168.     "Usually, the documentation must go to HELP:<your language>\n"
  169.     "Be sure to have AmigaGuide® or MultiView® to view the AmigaGuide documentation."
  170.   )
  171. )
  172.  
  173. (set #doc-ht-dir "In which drawer do you want to install the HTML documentation?")
  174. (set #doc-ht-dir-help
  175.   (cat
  176.     "It's the destination drawer of the HTML documentation.\n"
  177.     "You can put the HTML documentation where you want.\n"
  178.     "Be sure to have Voyager or IBrowse to view the HTML documentation."
  179.   )
  180. )
  181.  
  182. (set #key-dir "In which drawer do you want to install the keyfile?")
  183. (set #key-dir-help
  184.     (cat
  185.        "It's the destination drawer of the keyfile.\n"
  186.        "You can choose between s: and keyfiles:"
  187.     )
  188. )
  189.  
  190. (set #icon-select "Choose the icons you wish to install:")
  191. (set #icon-select-help
  192.         (cat
  193.     "You can choose between Magic Workbench icons (8 colors)\n"
  194.     "and normal icons (4 colors)."
  195.         )
  196. )
  197.  
  198. (set #icons-normal "Normal (4 colors)")
  199. (set #icons-mwb "Magic Workbench (8 colors)")
  200.  
  201. (set #bad-kick "You need at least Kickstart 3.0 in order to install PSCalc.")
  202. (set #install-exit "Thank you for using PSCalc...")
  203. )
  204. ) ; if language = french
  205.  
  206. ;============================== PROGRAM-START ===============================
  207.  
  208. (welcome #welcome)
  209.  
  210. (complete 0)
  211.  
  212. ; Target directory of PSCalc
  213.  
  214. (set #pscalc-dir-name
  215.   (if (>= @user-level 2)
  216.     (
  217.       (askdir
  218.         (prompt #pscalc-dir)
  219.         (help #pscalc-dir-help)
  220.         (default #pscalc-default-dest)
  221.       )
  222.     )
  223.       #pscalc-default-dest
  224.   )
  225. )
  226. (complete 10)
  227. (copyfiles
  228.   (source #pscalc-src)
  229.   (dest #pscalc-dir-name)
  230. )
  231.  
  232. (complete 20)
  233.  
  234. ; Select the target directory of the keyfile
  235.  
  236. (set #key-dir-name
  237.   (if (>= @user-level 2)
  238.     (
  239.       (askchoice
  240.         (prompt #key-dir)
  241.         (help #key-dir-help)
  242.         (choices #key-dest1 #key-dest2)
  243.         (default 1)
  244.       )
  245.     )
  246.       1
  247.   )
  248. )
  249. (complete 30)
  250. (if (= #key-dir-name 0)
  251.   (
  252.     (copyfiles
  253.       (source #key-src)
  254.       (dest #key-dest1)
  255.     )
  256.     (copyfiles
  257.       (source #key-src-icon)
  258.       (dest #key-dest1)
  259.     )
  260.   )
  261.   (
  262.     (copyfiles
  263.       (source #key-src)
  264.       (dest #key-dest2)
  265.     )
  266.     (copyfiles
  267.       (source #key-src-icon)
  268.       (dest #key-dest2)
  269.     )
  270.   )
  271. )
  272.  
  273. (complete 40)
  274.  
  275. ; Select icon type
  276.  
  277. (set #icon-type
  278.   (if (>= @user-level 2)
  279.     (
  280.       (askchoice
  281.         (prompt #icon-select)
  282.         (help #icon-select-help)
  283.         (choices #icons-mwb #icons-normal)
  284.         (default 1)
  285.       )
  286.     )
  287.       1
  288.   )
  289. )
  290. (complete 50)
  291. (if (= #icon-type 1)
  292.   (
  293.     (copyfiles
  294.       (source #pscalc-icon4-src)
  295.       (dest #pscalc-dir-name)
  296.       (newname "PSCalc.info")
  297.     )
  298.   )
  299.   (
  300.     (copyfiles
  301.       (source #pscalc-icon8-src)
  302.       (dest #pscalc-dir-name)
  303.       (newname "PSCalc.info")
  304.     )
  305.   )
  306. )
  307.  
  308. (complete 60)
  309.  
  310. ; Select language
  311.  
  312. (set #lg-choice
  313.   (askchoice
  314.     (prompt #lg)
  315.     (help #lg-help)
  316.     (choices #en #fr #sw)
  317.     (default #lg-default)
  318.   )
  319. )
  320.  
  321. (if (= #lg-choice 0)
  322.   (set #doc-default-dest #doc-en-dest)
  323. )
  324.  
  325. (if (= #lg-choice 1)
  326.   (set #doc-default-dest #doc-fr-dest)
  327.   (set #cat-default-dest #cat-fr-dest)
  328. )
  329.  
  330. (if (= #lg-choice 2)
  331.   (set #doc-default-dest #doc-sw-dest)
  332.   (set #cat-default-dest #cat-sw-dest)
  333. )
  334.  
  335. (complete 70)
  336.  
  337. ; Formats of documentation
  338.  
  339. (set #doc-type
  340.   (if (>= @user-level 2)
  341.     (
  342.       (askoptions
  343.         (prompt #doc-type)
  344.         (help #doc-type-help)
  345.         (choices "AmigaGuide" "html")
  346.         (default 1)
  347.       )
  348.     )
  349.       1
  350.   )
  351. )
  352.  
  353. (complete 80)
  354.  
  355. ; AmigaGuide documentation installation
  356.  
  357. (if (in #doc-type 0)
  358.   ( ; Select the target directory for AmigaGuide documentation
  359.     (set #doc-ag-dir-name
  360.       (if (>= @user-level 2)
  361.         (
  362.           (askdir
  363.             (prompt #doc-ag-dir)
  364.             (help #doc-ag-dir-help)
  365.             (default #doc-default-dest)
  366.           )
  367.         )
  368.           #doc-default-dest
  369.       )
  370.     )
  371.  
  372.     ; English
  373.     (if (= #lg-choice 0)
  374.       (
  375.         (copyfiles
  376.           (source #doc-en-src)
  377.           (dest #doc-ag-dir-name)
  378.         )
  379.         (copyfiles
  380.           (source #img-en-src)
  381.           (dest #doc-ag-dir-name)
  382.           (pattern "fen#?_image")
  383.         )
  384.       )
  385.     )
  386.  
  387.     ; Français
  388.     (if (= #lg-choice 1)
  389.       (
  390.         (copyfiles
  391.           (source #doc-fr-src)
  392.           (dest #doc-ag-dir-name)
  393.         )
  394.         (copyfiles
  395.           (source #img-fr-src)
  396.           (dest #doc-ag-dir-name)
  397.           (pattern "fen#?_image")
  398.         )
  399.       )
  400.     )
  401.  
  402.     ; Svenska
  403.     (if (= #lg-choice 2)
  404.       (
  405.         (copyfiles
  406.           (source #doc-sw-src)
  407.           (dest #doc-ag-dir-name)
  408.         )
  409.         (copyfiles
  410.           (source #img-sw-src)
  411.           (dest #doc-ag-dir-name)
  412.           (pattern "fen#?_image")
  413.         )
  414.       )
  415.     )
  416.  
  417.     ; Icons
  418.     (if (= #icon-type 1)
  419.       (
  420.         (copyfiles
  421.           (source #doc-icon4-src)
  422.           (dest #doc-ag-dir-name)
  423.           (newname "PSCalc.guide.info")
  424.         )
  425.       )
  426.       (
  427.         (copyfiles
  428.           (source #doc-icon8-src)
  429.           (dest #doc-ag-dir-name)
  430.           (newname "PSCalc.guide.info")
  431.         )
  432.       )
  433.     )
  434.   )
  435. )
  436.  
  437. (complete 85)
  438.  
  439. ; HTML documentation installation
  440.  
  441. (if (in #doc-type 1)
  442.   ( ; Select the target directory for HTML documentation
  443.     (set #doc-ht-dir-name
  444.       (if (>= @user-level 2)
  445.         (
  446.           (askdir
  447.             (prompt #doc-ht-dir)
  448.             (help #doc-ht-dir-help)
  449.             (default #html-default-dest)
  450.           )
  451.         )
  452.           #doc-default-dest
  453.       )
  454.     )
  455.  
  456.     ; English
  457.     (if (= #lg-choice 0)
  458.       (
  459.         (copyfiles
  460.           (source #doc-en-html)
  461.           (dest #doc-ht-dir-name)
  462.           (pattern "#?.html")
  463.         )
  464.         (copyfiles
  465.           (source #img-en-src)
  466.           (dest #doc-ht-dir-name)
  467.           (pattern "fen#?_image")
  468.         )
  469.       )
  470.     )
  471.  
  472.     ; Français
  473.     (if (= #lg-choice 1)
  474.       (
  475.         (copyfiles
  476.           (source #doc-fr-html)
  477.           (dest #doc-ht-dir-name)
  478.           (pattern "#?.html")
  479.         )
  480.         (copyfiles
  481.           (source #img-fr-src)
  482.           (dest #doc-ht-dir-name)
  483.           (pattern "fen#?_image")
  484.         )
  485.       )
  486.     )
  487.  
  488.     ; Svenska
  489.     (if (= #lg-choice 2)
  490.       (
  491.         (copyfiles
  492.           (source #doc-sw-html)
  493.           (dest #doc-ht-dir-name)
  494.           (pattern "#?.html")
  495.         )
  496.         (copyfiles
  497.           (source #img-sw-src)
  498.           (dest #doc-ht-dir-name)
  499.           (pattern "fen#?_image")
  500.         )
  501.       )
  502.     )
  503.   )
  504. )
  505.  
  506. (complete 90)
  507.  
  508. (if (= #lg-choice 1)
  509.   (
  510.     (copyfiles
  511.       (source #cat-fr-src)
  512.       (dest #cat-fr-dest)
  513.     )
  514.     (copyfiles
  515.       (source #cat-fr-temp)
  516.       (dest #cat-fr-dest)
  517.       (newname "PSCalc.ct")
  518.     )
  519.   )
  520. )
  521.  
  522. (if (= #lg-choice 2)
  523.   (
  524.     (copyfiles
  525.       (source #cat-sw-src)
  526.       (dest #cat-sw-dest)
  527.     )
  528.     (copyfiles
  529.       (source #cat-sw-temp)
  530.       (dest #cat-sw-dest)
  531.       (newname "PSCalc.ct")
  532.     )
  533.   )
  534. )
  535.  
  536. (copyfiles
  537.   (source #cat-temp)
  538.   (dest #cat-locale)
  539.   (newname "PSCalc.cd")
  540. )
  541.  
  542. (complete 100)
  543.  
  544. (message #install-exit)
  545.  
  546.